home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / FORTGAME.DIR / 00275_Script_Sound < prev    next >
Text File  |  1996-03-20  |  455b  |  28 lines
  1.  on bumpSound
  2.   rPlaySoundAndWait "Bump"
  3. end bumpSound
  4.  
  5. --on rPlaySound whichSound
  6. --  puppetSound whichSound
  7. --  updateStage
  8. --end rPlaySound
  9.  
  10. on rPlaySound whichSound
  11.   puppetSound whichSound
  12.   updateStage
  13.   waitSound
  14. end rPlaySound
  15.  
  16. on rPlaySoundAndWait whichSound
  17.   rPlaySound whichSound
  18.   waitSound
  19. end rPlaySoundAndWait
  20.  
  21. on waitSound
  22.   repeat while soundBusy(1)
  23.     updateStage
  24.   end repeat
  25.   puppetSound 0
  26. end waitSound
  27.  
  28.